program task_11b;

{$mode objfpc}{$H+}

uses
  math,
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

var
  a, b, x, y, z: real;
// const - раздел описания констант. это те же числа, но только их нельзя менять в рантайме
const
  e = 2.71828;
begin
  writeln('task 11b');
  write('enter x:');
  readln(x);
  write('enter y:');
  readln(y);
  write('enter z:');
  readln(z);
  writeln('x = ', x:3:3, '; y = ', y:3:3, '; z = ', z:3:3);

  // power - возведение в степень
  // abs - модуль
  // tan - тангенс
  a := (3 + power(e, y - 1)) / ( 1 + sqr(x) * abs(y - tan(z)) );
  b := 1 + abs(y - z) + sqr(y - x)/2 + power(abs(y-x), 3)/3;

  writeln;
  writeln('a = ', a:3:3);
  writeln('b = ', b:3:3);
  readln;
end.

